Public Class Usuario

    Private strLogin As String
    Private strSenha As String
    Private strCargo As String

    Public Sub New(ByVal strLogin As String, ByVal strSenha As String, ByVal strCargo As String)
        Me.strLogin = strLogin
        Me.strSenha = strSenha
        Me.strCargo = strCargo
    End Sub

    Public Sub setLogin(ByVal Login As String)
        strLogin = Login
    End Sub

    Public Function getLogin() As String
        getLogin = strLogin
    End Function

    Public Sub setSenha(ByVal Senha As String)
        strSenha = Senha
    End Sub

    Public Function getSenha() As String
        getSenha = strSenha
    End Function

    Public Sub setCargo(ByVal Cargo As String)
        strCargo = Cargo
    End Sub

    Public Function getCargo() As String
        getCargo = strCargo
    End Function


End Class
